<!--#INCLUDE FILE="conn.asp"-->
<!--#INCLUDE FILE="ad_function.asp"-->
<!-- #include file="aFunction_charCode.asp" -->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<HTML>
<HEAD>
<TITLE></TITLE>
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">

<SCRIPT language=JavaScript>
<!--
function go(src,q)
{
     var ret;
     ret = confirm(q);
     if(ret!=false)window.location=src;
}
function allDel(){
      var ret = confirm("Σգ\nҪɾ̳ϵͳȫעûǵм¼ԱܴƣزȷʵҪɾȫ");
	  if(ret!=false){
          var ret = confirm("ٴξ棡\nȷʵҪִбβ");
	      if(ret!=false)window.location.href="manageid.asp?isAllDelUN=ok";
	  }
}

--> 
</SCRIPT>

</HEAD>
<BODY bgcolor=#aaaac4>
<CENTER>
<br>
<table><tr><td class="font2">û</td></tr></table>
<hr width="700">
<br>

<%
if request.QueryString("User")<>"" or request.QueryString("p")<>"" Then
    If Not HMUser(request.QueryString("User")) Then
        call deluser_articleandnote(request.QueryString("User"))
        call del_username(request.QueryString("User"))
        Call infoDivShow("&nbsp;ɾɹ")
        Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=manageid.asp'>"
    End If 
end If

If Request.QueryString("isAllDelUN")="ok" Then 
    Call isDel()
    Call infoDivShow("&nbsp;ɾɹ")
    Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=manageid.asp'>"
End If 
%>

<table border=1 width=700 bgcolor=#dedfde cellpadding="5" cellspacing="15">
    <tr>
         <td align=center>
               <table border="0" width="100%" cellspacing="1" cellpadding="0" >
                      <tr>
                             <td  class=td align="center" height="15" width="10%"><font color="#FF0000">&nbsp;</font></td>
                             <td  class=td align="center" height="15" width="13%"><font color="#FF0000">&nbsp;</font></td>
                             <td  class=td align="center" height="15" width="23%"><font color="#FF0000">û</font></td>
                             <td  class=td align="center" height="15" width=""><font color="#FF0000">E-mail: </font></td>
                             <td  class=td align="center" height="15" width="10%"><font color="#FF0000"></font></td>
                             <td  class=td align="center" height="15" width="10%"><font color="#FF0000">ظ</font></td>
                       </tr>
<%
                      Dim objRS
                      Dim strSQL
                      Dim keyword2
                      keyword2=trim(request("keyword"))
                      if keyword2<>"" then
                            strSQL = "SELECT * FROM ts_userinfo where (username like '%"& keyword2 &"%') Order By id DESc"
                      else
                            strSQL = "SELECT * FROM ts_userinfo Order By id DESc"
                     end if
                     Set objRS = Server.CreateObject("ADODB.Recordset")
                     objRS.Open strSQL, Conn, 1, 2
                           If objRS.Eof And objRS.Bof Then
                                   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_manageid(1))</SCRIPT>"
                                   Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=" &Request.ServerVariables("HTTP_REFERER")& "'>"
                           Else
                                   Dim totalPage,totalRecordcount
                                   objrs.PageSize = showlistok()
                                   totalPage=objrs.pagecount
                                   objRS.AbsolutePage=REQUEST("Page")
                                   totalRecordcount = objrs.recordcount

                                   If PageNo <> "" Then   
                                          ShowPage objRS, PageNo  
                                   Else  
                                          ShowPage objRS, 1  
                                   End If  
                           End If
                     objRS.Close
                     Set objRS = Nothing
%>
             </TABLE>

             <BR>
             <INPUT TYPE="button" class="input4" NAME="" value="ȫɾ" onclick="allDel()">
             <BR> 
             <BR> 

             <TABLE width="100%" border="1" style="background-color:#ffffff">
                <TR><TD>
                           <%call pages()%>
                 </TD></TR>
             </TABLE>
        </td>
    </tr>
</table>

<br>
<form name=search action=manageid.asp method=post>
<table width=470 border=0 cellspacing=0 cellpadding=2 align=center>   
         <tbody>
         <tr bordercolor=#0099CC align=center> 
                  <td bgcolor=LightBlue align=right  width=32%><span style="font-size:20;color:#000070">û:</span></td>
                  <td bgcolor=LightBlue width=32%/> <input type=text size=17 name=keyword maxlength=50 value=<%=keyword2%>></td>
                  <td bgcolor=LightBlue align=left><input type=submit height=18 width=39  name=b2 alt= value=></td>
                  <td>&nbsp;&nbsp;<a href=javascript:history.go(-1)>ǰҳ</a></td>
         </tr>
         </tbody>
</table>
</form>

</CENTER>
</BODY>
</HTML>

<%
Call conn_Nothing()

Sub ShowPage(objRS, Page)
       For I = 1 To objRS.PageSize
              Response.Write "<TR height='20'>"
%>
              <td class=td1 align='center'><a class=a1 href="javascript:go('manageid.asp?User=<%=objrs("username")%>&p=<%=Request.QueryString("page")%>','˾棡ɾû &nbsp;(<%=objrs("username")%>)&nbsp; û͸ûм¼Աܴƣ,زȷҪɾ?')" title="ɾ">ɾ</a></td>
<%
              Response.Write "<td class=td1 align='center'><font size=2>"& objRS("id") &"</td>"
              Response.Write "<td class=td1 align='center'><font size=2>"
              call userStanding(objrs("username"))
              call UserInfoLink(objrs("username"))
              Response.Write "</td>" 
              Response.Write "<td class=td1 align='center'><font size=2>" & objRS("Email") & "</td>"
              Response.Write "<td class=td1 align='center'><font size=2>" & objRS("articleTotal") & "ƪ</td>"
              Response.Write "<td class=td1 align='center'><font size=2>" & objRS("replyTotal") & "ƪ</td>"
              Response.Write "</TR>"
              Response.Write "<TR height='6' bgcolor='#fffff8'><td colspan='6'></TR>"
              objRS.MoveNext
              If objRS.EOF Then Exit For
       Next    
End Sub

sub pages()
        dim Page      
        Page = Request("Page")
        if Page="" or Page=0 then
                 page=1
        else
                 page=cint(request("page"))
        end if
       if totalRecordcount<>0 then
            dim currid1,currid2
            if totalPage>=10 then
                  if Page mod 10=0 then
                        currid1=Page
                        currid2=Page-9
                  else
                        if totalPage mod 10=0 then 
                               currid1=int(Page/10)*10+10
                        else 
                               if int(Page/10)=int(totalPage/10) then currid1=(totalPage/10)*10 else currid1=int(Page/10)*10+10
                        end if
                        currid2=int(Page/10)*10+1
                  end if
            else 
                  currid1=totalPage mod 10
                  currid2=int(totalPage/10)*10+1
            end if
%>
            <table align=left>
                 <tr><td>
<%
                        if totalPage>1 Then
                              If Page=totalPage or Page<>1 Then 
                                     dim PrwePage
                                     PrwePage=Page-1
                                     Response.Write "<A class=a1 HREF=manageid.asp?Page="&PrwePage&"&keyword="&keyword2&"&sel1="&request("sel1")   
                                     Response.Write "><font size=4>һҳ</font></A>  "              
                              End If  
                        End If          
%>
                 </td></tr>
            </table>
            <table border="0" align="left">
                 <tr><td>
                       <FONT face=webdings size=2>
                       <%if Page=1 then%>
                               <span style="color: #FF0000">9</span>
                       <%else%>
                               <a class=a2 href="manageid.asp?Page=1<%="&keyword="&keyword2&"&sel1="&request("sel1")%>">9</a>
                       <%end if%>
                       <%if Page>10 then%>
                               <a class=a2 href="manageid.asp?Page=<%=currid2-1&"&keyword="&keyword2&"&sel1="&request("sel1")%>">7</a>
                       <%end if%>
                       </FONT>
                       <strong>
<%
                       for i=currid2 to currid1
                            if Page=i then 
	                             response.Write("<font color=red size=4>"&i&"</font>  ")
                            else
%>
                                 <FONT size=2>
                                 <a class=a2 href="manageid.asp?Page=<%=i&"&keyword="&keyword2&"&sel1="&request("sel1")%>">
                                        <%response.write i%>
                                 </a>
                                 </FONT>
                            <%end if%>
                            <%response.write " "%>
                       <%next%>
                       </strong>
                       <FONT face=webdings size=2>
                       <%if currid1<totalPage then%>
                             <a class=a2 href="manageid.asp?Page=<%=currid1+1&"&keyword="&keyword2&"&sel1="&request("sel1")%>">8</a>
                      <%end if%>
                      </FONT> 
                      <FONT face=webdings size=2>
                      <%if Page=totalPage then%>
                             <span style="color: #FF0000">:</span>
                      <%else%>
                             <a class=a2 href="manageid.asp?Page=<%=totalPage&"&keyword="&keyword2&"&sel1="&request("sel1")%>">:</a>
                      <%end if%>
                      </FONT>
                 </td></tr>
            </table>
            <table align=left>
                 <tr><td>
<% 
                        if totalPage>1 Then
                             If page=1 or totalPage>Page Then
                                   dim NextPage
                                   NextPage=Page+1
                                   Response.Write "<A  class=a1 HREF=manageid.asp?Page="&NextPage&"&keyword="&keyword2&"&sel1="&request("sel1")
                                   Response.Write "><font size=4>һҳ</font></A>"
                             End If
                        End If
%>
                 </td></tr>
            </table>
            <table align=right>
                 <tr><td>
<%
                       if Page>totalPage then
                            Page=totalPage
                       end if
                      Response.Write "<font size=2>ҳΣ<font color= red><b>"& Page &"</b></font>/<b>"& totalPage &"</b>ҳ ,<b>"& totalRecordcount &"</b></font>"
%>
                </td></tr>
            </table>
<%
        end if
end Sub

sub deluser_articleandnote(aa)
       dim sql
       dim rs
       set rs=server.createobject("adodb.recordset")
       sql = "select * FROM article WHERE User='" & aa & "'  Order By id DESc"
       rs.Open sql,conn,1,2
               do while not rs.eof
                      set rs1=server.createobject("adodb.recordset")
                      Dim d_SavePathFileName2
                      Sql1 = "SELECT d_SavePathFileName FROM article WHERE id = " & rs("id")
                      Rs1.Open Sql1, Conn, 0, 1
                               If Not Rs1.Eof Then
                                       d_SavePathFileName2 = Rs1("d_SavePathFileName")
                               End If
                               Dim aSavePathFileName
                               aSavePathFileName = Split(d_SavePathFileName2, "|")
                                Dim i
                                For i = 0 To UBound(aSavePathFileName)
                                        Call DoDelFile(aSavePathFileName(i))
                                 Next
                      rs1.close
                      set rs1=nothing
                      rs.movenext
               loop 
       rs.close
       set rs=nothing
       set rs=server.createobject("adodb.recordset")
       sql = "select * FROM article WHERE User='" & aa & "' Order By id DESc"
       rs.Open sql,conn,1,2
              do while not rs.eof
                      set rs2=server.createobject("adodb.recordset")  
                      Dim r_SavePathFileName2
                      Sql2 = "SELECT r_SavePathFileName FROM reply WHERE cstr(reply_id)= " & rs("id")
                      Rs2.Open Sql2 , Conn, 0, 1
                              do while not rs2.eof
                                      If Not Rs2.Eof Then  
                                               r_SavePathFileName2 = Rs2("r_SavePathFileName")
                                      End If
                                      Dim bSavePathFileName
                                      bSavePathFileName = Split(r_SavePathFileName2, "|")
                                      Dim j
                                      For j = 0 To UBound(bSavePathFileName)
                                            Call DoDelFile(bSavePathFileName(j))
                                      Next
                                      rs2.movenext
                              loop
                      rs2.close
                      Set RS2 = Nothing
                      rs.movenext
              loop
       rs.close
       set rs=nothing
       set rs=server.createobject("adodb.recordset")
       sql = "select * FROM article WHERE User='" & aa & "' Order By id DESc"
       rs.Open sql,conn,1,2
              For i = 1 To RS.recordcount
                     conn.execute("delete FROM reply WHERE cstr(reply_id)='" & rs("id") & "'")
                     RS.MoveNext 
              Next
       rs.close
       set rs=nothing
        conn.execute("delete FROM article WHERE User='" & aa & "'")
       conn.execute("delete FROM reply WHERE reply_human='" & aa & "'")
       conn.execute("delete from [sitenote] where incept='" & aa & "'")
end sub

sub del_username(aa)
        conn.execute("delete FROM ts_userinfo WHERE username='" & aa & "'")
        conn.execute("delete FROM admin WHERE username='" & aa & "'")
end sub

Function HMUser(UName)
    HMUser=False 
    Dim rs
    set rs=conn.Execute("select bclass from ts_userinfo where username='" & UName & "'")
	    If rs("bclass")=1 Then
	       HMUser=True 
		End If 
    rs.close
    Set rs=Nothing
End Function 

Sub isDel()
	Dim rs,sql
    Set rs=server.createobject("adodb.recordset")
    sql = "select * FROM ts_userinfo" 
    rs.Open sql,conn,1,2
       Do While Not rs.eof
           If Not HMUser(rs("username")) Then
               Call deluser_articleandnote(rs("username"))
               conn.execute("delete FROM admin WHERE username='" & rs("username") & "'")
		       conn.execute("delete FROM ts_userinfo WHERE username='" & rs("username") & "'")
	       End If 
           rs.MoveNext
       Loop 
    rs.close
    Set rs=Nothing
End Sub 

%>

